home *** CD-ROM | disk | FTP | other *** search
/ Programming Microsoft Visual Basic .NET / Programming Microsoft Visual Basic .NET (Microsoft Press)(X08-78517)(2002).bin / setup / vbnet / 17 controls / databindingdemo / masterdetailgridsform.vb < prev    next >
Encoding:
Text File  |  2002-03-16  |  7.0 KB  |  155 lines

  1. Imports System.Data
  2. Imports System.Data.OleDb
  3.  
  4. Public Class MasterDetailGridsForm
  5.     Inherits System.Windows.Forms.Form
  6.  
  7. #Region " Windows Form Designer generated code "
  8.  
  9.     Public Sub New()
  10.         MyBase.New()
  11.  
  12.         'This call is required by the Windows Form Designer.
  13.         InitializeComponent()
  14.  
  15.         'Add any initialization after the InitializeComponent() call
  16.  
  17.     End Sub
  18.  
  19.     'Form overrides dispose to clean up the component list.
  20.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  21.         If disposing Then
  22.             If Not (components Is Nothing) Then
  23.                 components.Dispose()
  24.             End If
  25.         End If
  26.         MyBase.Dispose(disposing)
  27.     End Sub
  28.     Friend WithEvents grdPublishers As System.Windows.Forms.DataGrid
  29.     Friend WithEvents grdTitles As System.Windows.Forms.DataGrid
  30.  
  31.     'Required by the Windows Form Designer
  32.     Private components As System.ComponentModel.Container
  33.  
  34.     'NOTE: The following procedure is required by the Windows Form Designer
  35.     'It can be modified using the Windows Form Designer.  
  36.     'Do not modify it using the code editor.
  37.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  38.         Me.grdPublishers = New System.Windows.Forms.DataGrid()
  39.         Me.grdTitles = New System.Windows.Forms.DataGrid()
  40.         CType(Me.grdPublishers, System.ComponentModel.ISupportInitialize).BeginInit()
  41.         CType(Me.grdTitles, System.ComponentModel.ISupportInitialize).BeginInit()
  42.         Me.SuspendLayout()
  43.         '
  44.         'grdPublishers
  45.         '
  46.         Me.grdPublishers.AllowNavigation = False
  47.         Me.grdPublishers.AlternatingBackColor = System.Drawing.Color.LightGray
  48.         Me.grdPublishers.BackColor = System.Drawing.Color.Gainsboro
  49.         Me.grdPublishers.BackgroundColor = System.Drawing.Color.Silver
  50.         Me.grdPublishers.BorderStyle = System.Windows.Forms.BorderStyle.None
  51.         Me.grdPublishers.CaptionBackColor = System.Drawing.Color.LightSteelBlue
  52.         Me.grdPublishers.CaptionForeColor = System.Drawing.Color.MidnightBlue
  53.         Me.grdPublishers.CaptionText = "Publishers"
  54.         Me.grdPublishers.DataMember = ""
  55.         Me.grdPublishers.FlatMode = True
  56.         Me.grdPublishers.Font = New System.Drawing.Font("Tahoma", 8!)
  57.         Me.grdPublishers.ForeColor = System.Drawing.Color.Black
  58.         Me.grdPublishers.GridLineColor = System.Drawing.Color.DimGray
  59.         Me.grdPublishers.GridLineStyle = System.Windows.Forms.DataGridLineStyle.None
  60.         Me.grdPublishers.HeaderBackColor = System.Drawing.Color.MidnightBlue
  61.         Me.grdPublishers.HeaderFont = New System.Drawing.Font("Tahoma", 8!, System.Drawing.FontStyle.Bold)
  62.         Me.grdPublishers.HeaderForeColor = System.Drawing.Color.White
  63.         Me.grdPublishers.LinkColor = System.Drawing.Color.MidnightBlue
  64.         Me.grdPublishers.Location = New System.Drawing.Point(16, 16)
  65.         Me.grdPublishers.Name = "grdPublishers"
  66.         Me.grdPublishers.ParentRowsBackColor = System.Drawing.Color.DarkGray
  67.         Me.grdPublishers.ParentRowsForeColor = System.Drawing.Color.Black
  68.         Me.grdPublishers.SelectionBackColor = System.Drawing.Color.CadetBlue
  69.         Me.grdPublishers.SelectionForeColor = System.Drawing.Color.White
  70.         Me.grdPublishers.Size = New System.Drawing.Size(560, 136)
  71.         Me.grdPublishers.TabIndex = 0
  72.         '
  73.         'grdTitles
  74.         '
  75.         Me.grdTitles.AlternatingBackColor = System.Drawing.Color.Lavender
  76.         Me.grdTitles.BackColor = System.Drawing.Color.WhiteSmoke
  77.         Me.grdTitles.BackgroundColor = System.Drawing.Color.LightGray
  78.         Me.grdTitles.BorderStyle = System.Windows.Forms.BorderStyle.None
  79.         Me.grdTitles.CaptionBackColor = System.Drawing.Color.LightSteelBlue
  80.         Me.grdTitles.CaptionForeColor = System.Drawing.Color.MidnightBlue
  81.         Me.grdTitles.CaptionText = "Titles"
  82.         Me.grdTitles.DataMember = ""
  83.         Me.grdTitles.FlatMode = True
  84.         Me.grdTitles.Font = New System.Drawing.Font("Tahoma", 8!)
  85.         Me.grdTitles.ForeColor = System.Drawing.Color.MidnightBlue
  86.         Me.grdTitles.GridLineColor = System.Drawing.Color.Gainsboro
  87.         Me.grdTitles.GridLineStyle = System.Windows.Forms.DataGridLineStyle.None
  88.         Me.grdTitles.HeaderBackColor = System.Drawing.Color.MidnightBlue
  89.         Me.grdTitles.HeaderFont = New System.Drawing.Font("Tahoma", 8!, System.Drawing.FontStyle.Bold)
  90.         Me.grdTitles.HeaderForeColor = System.Drawing.Color.WhiteSmoke
  91.         Me.grdTitles.LinkColor = System.Drawing.Color.Teal
  92.         Me.grdTitles.Location = New System.Drawing.Point(16, 168)
  93.         Me.grdTitles.Name = "grdTitles"
  94.         Me.grdTitles.ParentRowsBackColor = System.Drawing.Color.Gainsboro
  95.         Me.grdTitles.ParentRowsForeColor = System.Drawing.Color.MidnightBlue
  96.         Me.grdTitles.SelectionBackColor = System.Drawing.Color.CadetBlue
  97.         Me.grdTitles.SelectionForeColor = System.Drawing.Color.WhiteSmoke
  98.         Me.grdTitles.Size = New System.Drawing.Size(560, 136)
  99.         Me.grdTitles.TabIndex = 0
  100.         '
  101.         'MasterDetailGridsForm
  102.         '
  103.         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  104.         Me.ClientSize = New System.Drawing.Size(592, 317)
  105.         Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.grdTitles, Me.grdPublishers})
  106.         Me.Name = "MasterDetailGridsForm"
  107.         Me.Text = "MasterDetailGridsForm"
  108.         CType(Me.grdPublishers, System.ComponentModel.ISupportInitialize).EndInit()
  109.         CType(Me.grdTitles, System.ComponentModel.ISupportInitialize).EndInit()
  110.         Me.ResumeLayout(False)
  111.  
  112.     End Sub
  113.  
  114. #End Region
  115.  
  116.     Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  117.         CreateDataSet()
  118.         InitializeBinding()
  119.     End Sub
  120.  
  121.     Dim dsBiblio As New DataSet()
  122.  
  123.     Sub CreateDataSet()
  124.         ' Open a connection to the Biblio.mdb database.
  125.         Dim cn As New OleDbConnection(BiblioConnString)
  126.         cn.Open()
  127.  
  128.         ' Create a data adapter for the Publisher table.
  129.         Dim daPublishers As New OleDbDataAdapter("SELECT * FROM Publishers", cn)
  130.         ' Fill the DataSet object with Publishers data.
  131.         daPublishers.Fill(dsBiblio, "Publishers")
  132.  
  133.         ' Create a data adapter for the Titles table.
  134.         Dim daTitles As New OleDbDataAdapter("SELECT * FROM Titles", cn)
  135.         ' Fill the DataSet object with Titles data.
  136.         daTitles.Fill(dsBiblio, "Titles")
  137.  
  138.         ' Create a Relation between the two table
  139.         dsBiblio.Relations.Add("PubTitles", dsBiblio.Tables("Publishers").Columns("PubID"), dsBiblio.Tables("Titles").Columns("PubId"))
  140.  
  141.         ' Close the connection
  142.         cn.Close()
  143.     End Sub
  144.  
  145.     Sub InitializeBinding()
  146.         ' Bind the master grid to the Publishers table.
  147.         grdPublishers.DataSource = dsBiblio
  148.         grdPublishers.DataMember = "Publishers"
  149.         ' Bind the detail grid to the Titles table.
  150.         grdTitles.DataSource = dsBiblio
  151.         grdTitles.DataMember = "Publishers.PubTitles"
  152.     End Sub
  153.  
  154. End Class
  155.